10 DIM N(1000)
11 DIM P(350)
13 FILES PROUT
20 FOR I=1 TO 1000
21  LET N(I)=0
22 NEXT I
25 LET P(0)=2
26 LET K=0
30 FOR P=3 TO 2000 STEP 2
35  LET X=(P-1)/2
40  IF N(X)<0 THEN 90
50  LET K=K+1
55 LET P(K)=P
56  IF P>SQR(2000) THEN 90
60  FOR I=P TO 2000 STEP 2*P
65 LET X=(I-1)/2
70 LET N(X)=-1
80 NEXT I
90 NEXT P
100 FOR I=0 TO K
110 PRINT P(I);
120 NEXT I
99999 END
                                                                                                                                                                                                                                                        